home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs05.d81
/
halley.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
7KB
|
260 lines
1 GOTO5000REM"
11 [143]"""FROM THE PEEK(null)ATN(null)STR$ OF VALSTR$ PEEKPEEK(null) 201-369-5972"
15 [143]"""MODIFIED FOR THE LEN-64 BY CHR$EORGE (null)ERVO"[204]
20 [156]:PI[178][255]
25 [153]"LOAD"
30 CO$[178]"LEN(null)(null)VAL(null)CLOSELEFT$ATN(null)(null)VAL(null)"
40 PH[178]1986.11
50 PL[178]170.011
60 AN[178]58.1453
70 PY[178]76.0081
80 SM[178]17.9435
90 EO[178].967267
100 IO[178]162.239
110 [153]"LOADSYS --------------------------------------"
120 [153]" "CO$
130 [153]" --------------------------------------"
140 [153]:[153]" VALPHEMERIS FOR DATES"
150 [153]" BETWEEN 1946 AND 2026"
160 [143]
170 [143]================================
180 [143] INPUT DATA
190 [143]================================
200 [153]:[153]"SYS RIGHT$(null)(null)(null)(null) THE YEAR ";
210 [133]"SINCMDCMDCMD";Y$:Y[178][197](Y$)
220 [139] Y[179]1946 [176] Y[177]2026 [167] [137] 110
230 [153]:[153]" RIGHT$(null)(null)(null)(null) MONTH ";
240 [133]"SINCMDCMDCMD";M$:M[178][197](M$)
250 [139] M[179]1 [176] M[177]12 [167] [137] 230
260 [153]:[153]" RIGHT$(null)(null)(null)(null) DAY ";
270 [133]"SINCMDCMDCMD";D$:D[178][197](D$)
280 [139]D[177]31[176]D[179]1[167]260
285 [153]"OPEN((null)HINKING... (null)LEASE (null)ATNRIGHT$(null)!)SYS"
290 [143]================================
300 [143] CALCULATIONS FOR COMET
310 [143]================================
320 X[178]PH
330 [139] Y[177][178]1986 [167] Z[178]1984
340 [139] Y[179]1986 [167] Z[178]1988
350 [139] Y[177][178]1986 [167] S[178]0
360 [139] Y[179]1986 [167] S[178]1
370 [141] 1780
380 DS[178]N
390 B[178](360[173]PY)[172](N[173]365.25)
400 K[178]B
410 [141] 1930
420 B[178](K[172]PI)[173]180
430 E[178]B
440 Y1[178]EO
450 Q[178]E[171](Y1[172][191](E))[171]B
460 [139] [182](Q)[179][178].000017 [167] [137] 500
470 U[178]Q[173](1[171](Y1[172][190](E)))
480 E[178]E[171]U
490 [137] 450
500 V[178]([186]((1[170]Y1)[173](1[171]Y1))[172][192](E[173]2))
510 V[178]2[172][193](V)
520 V1[178](V[172]180)[173]PI
530 L[178]V1[170]PL
540 R[178]SM[172](1[171](Y1[172]Y1))[173](1[170]Y1[172][190](V))
550 F[178]L[171]AN
560 F2[178]IO
570 F1[178](F[172]PI)[173]180
580 F2[178](F2[172]PI)[173]180
590 I[178]([191](F1)[172][191](F2))
600 I[178][193](I[173][186]([171]I[172]I[170]1))
610 P[178][193]([192](F1)[172][190](F2))
620 P1[178](P[172]180)[173]PI[170]AN
630 [139] F[177][178]90 [175] F[179][178]270 [167] P1[178]P1[170]180
640 [139] P1[179]0 [167] P1[178]P1[170]360
650 P[178](P1[172]PI)[173]180
660 R2[178]R[172][190](I)
670 [143]================================
680 [143] CALCULATIONS FOR THE EARTH
690 [143]================================
700 X[178]1975
710 [139] Y[177][178]X [167] Z[178]1972
720 [139] Y[179]X [167] Z[178]1976
730 [139] Y[177][178]X [167] S[178]0
740 [139] Y[179]X [167] S[178]1
750 [141] 1780
760 T[178](360[173]365.25)[172](N[173]1.00004)
770 K[178]T
780 [141] 1930
790 T[178]K
800 T1[178](T[172]PI)[173]180
810 C[178].01672
820 J[178]T[170](360[173]PI)[172]C[172][191](T1[171].051943)
830 J[178]J[170]99.53429000000003
840 [139] J[177]360 [167] J[178]J[171]360
850 [139] J[179]0 [167] J[178]J[170]360
860 H[178]((J[171]102.51044)[172]PI)[173]180
870 R1[178](1[171]C[172]C)[173](1[170]C[172][190](H))
880 [143]================================
890 [143] ECLIPTIC COORDINATES
900 [143]================================
910 U1[178]((P1[171]J)[172]PI)[173]180
920 U2[178]((J[171]P1)[172]PI)[173]180
930 [139] R2[179]R1 [167] [137] 990
940 Q1[178](R1[172][191](U1))
950 Q1[178]Q1[173](R2[171](R1[172][190](U1)))
960 Q1[178][193](Q1)
970 Q2[178](Q1[172]180)[173]PI[170]P1
980 [137] 1030
990 Q3[178](R2[172][191](U2))
1000 Q3[178]Q3[173](R1[171](R2[172][190](U2)))
1010 Q3[178][193](Q3)
1020 Q2[178](Q3[172]180)[173]PI[170]J[170]180
1030 [139] Q2[177]360 [167] Q2[178]Q2[171]360
1040 [139] Q2[179]0 [167] Q2[178]Q2[170]360
1050 Q4[178](Q2[172]PI)[173]180
1060 Q5[178](R2[172][192](I)[172][191](Q4[171]P))
1070 Q5[178]Q5[173](R1[172][191](U1))
1080 Q5[178][193](Q5)
1090 [143]===============================
1100 [143] CONVERT TO EQ COOR.
1110 [143]===============================
1120 E1[178].40893064
1130 L1[178]([191](Q5)[172][190](E1))
1140 L1[178]L1[170]([190](Q5)[172][191](E1)[172][191](Q4))
1150 M1[178][193](L1[173][186]([171]L1[172]L1[170]1))
1160 Y2[178](M1[172]180)[173]PI
1170 B1[178]([192](Q4)[172][190](E1))
1180 B1[178]B1[171](([192](Q5)[172][191](E1))[173][190](Q4))
1190 G[178][193](B1)
1200 H1[178](G[172]180)[173]PI
1210 I1[178][181](Q2[173]90)
1220 J1[178][181](H1[173]90)
1230 [139] I1[171]J1[178]4 [176] I1[171]J1[178]1 [167] H1[178]H1[170]360
1240 [139] I1[171]J1[178]2 [176] I1[171]J1[178]3 [167] H1[178]H1[170]180
1250 [139] I1[171]J1[178][171]4 [167] H1[178]H1[170]360
1260 [139] I1[171]J1[178][171]2 [167] H1[178]H1[171]180
1270 N1[178]H1[173]15
1280 W[178][181]((N1[171][181](N1))[172]60[170].5)
1290 [139] W[178]60 [167] N1[178]N1[170]1
1300 [139] W[178]60 [167] W[178]0
1310 K1[178][182](Y2)
1320 W1[178][181]((K1[171][181](K1))[172]60[170].5)
1330 [139] W1[178]60 [167] G1[178]G1[170]1
1340 [139] W1[178]60 [167] W1[178]0
1350 G1[178][181](K1)
1360 [139] Y2[179]0 [175] G1[179]1 [167] W1[178][171]W1
1370 D1[178]R1[172]R1[170]R2[172]R2
1380 D2[178][186](D1)
1390 R3[178]D2[173][190](I)
1400 K9[178]R
1410 [141] 2040
1420 R[178]K9
1430 K9[178]R3[173]10
1440 [141] 2040
1450 R3[178]K9[172]10
1460 MO[178]4.1:N[178]3.1
1470 [139] DS[179]0 [167] MO[178]5:N[178]4.44
1480 MA[178]MO[170]5[172].4343[172][188](R3)
1485 MA[178]MA[170]N[172]2.5[172].4343[172][188](R)
1490 MA[178]([181](10[172]MA))[173]10
1500 [139] Y2[179]0 [167] G1[178][171]G1
1510 [143]===============================
1520 [143] PRINT EPHEMERIS FOR DATE
1530 [143]===============================
1535 [143]
1540 [153]"LOADSYS --------------------------------------"
1550 [153]" LEN(null)(null)VAL(null) LEFT$ATN(null)(null)VAL(null) RIGHT$NFORMATION"
1555 [153]" --------------------------------------"
1560 [153]" STR$ATE:"M"/"D"/"Y:[153]
1570 [153]:[153]"STR$AYS TO PERIHELION: ";[181](DS)"/"[181](DS[172]1000[173]365.25)[173]1000"(null)RS"
1600 [153]:[153]" (null)ATN:";[181](N1);" LEFT$(null)(null) ";W;" (null)RIGHT$(null)"
1610 [153]"STR$VALLEN:";G1;" STR$VALCHR$ ";W1;" (null)RIGHT$(null)"
1620 [153]
1630 [153]"STR$ISTANCES:"
1635 [153]"----------"
1640 [153]" LENOMET TO (null)(null)(null)";R[172]93;" (null)ILLION MILES"
1650 [153]"LENOMET TO VALATN(null)(null)LEFT$";R3[172]93;" (null)ILLION MILES"
1660 [153]
1670 [153]"(null)REDICTED (null)ATNCHR$ ";MA
1675 [153]" ((null)OTE: 5 = LIMIT FOR NAKED EYE)"
1676 [153]
1700 [153]"OPENATNNOTHER STR$ATN(null)VAL? <(null)/(null)>SYS":[151]198,0:A$[178]""
1710 [161]A$:[139]A$[178]""[167]1710
1720 [139]A$[178]"Y"[176]A$[178]"(null)"[167]20
1730 [139]A$[178]"N"[176]A$[178]"(null)"[167][153]"LOAD":[158]64738
1740 [137]1710
1760 [143]===============================
1770 [143] DAYS TO PERIHELION
1780 A[178](Y[171]Z)[173]4
1790 A1[178][181](A[170]S)
1800 N[178]365[172](Y[171]X[170]S)[170]A1
1810 [139] [181](A)[179][177]A [167] [137] 1830
1820 [139] (M[178]2 [175] D[179]29) [176] M[178]1 [167] N[178]N[171]1
1830 [139] M[177]2 [167] [137] 1870
1840 M2[178]M[171]1
1850 M2[178]31[172]M2
1860 [137] 1890
1870 M2[178]M[170]1
1880 M2[178][181](30.6[172]M2)[171]63
1890 N[178]N[170]M2[170]D[171]365[172]S
1900 [142]
1910 [143]===============================
1920 [143] BETWEEN 0 AND 360
1930 [139] K[179]0 [167] [137] 1950
1940 [139] K[177]360 [167] [137] 1980
1950 K[178]K[170]360
1960 [139] K[177][178]0 [167] [137] 2010
1970 [137] 1950
1980 K[178]K[171]360
1990 [139] K[179][178]360 [167] [137] 2010
2000 [137] 1980
2010 [142]
2020 [143]===============================
2030 [143] ROUND OFF
2040 K9[178]K9[172]1000
2050 K9[178][181](K9[170].5)
2060 K9[178]K9[173]1000
2070 [142]
3000 [143]===============================
3010 [143] EXPLANATION AREA
3020 [143]===============================
3021 [131] "(null)EMEMBER...THE DISTANCE TO THE OPEN(null)(null)(null)SYS"
3022 [131] "FROM THE OPENVALATN(null)(null)LEFT$SYS IS 93 MILLION MILES!"
3023 [131] "-----------------------------------"
3030 [131] "ATNSTRONOMICAL (null)YMBOLS"
3035 [131] "--------------------"
3040 [131] "(null)OCATIONS IN THE NIGHT (AND DAYTIME)"
3050 [131] "SKY ARE USUALLY FOUND USING WHAT IS"
3060 [131] "CALLED OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS AND OPENSTR$VALLEN(null)RIGHT$(null)ATN(null)RIGHT$(null)(null)SYS."
3070 [131] "OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS IS SIMILAR TO THE IDEA"
3080 [131] "OF OPEN(null)(null)(null)CHR$RIGHT$(null)(null)STR$VALSYS WHILE OPENSTR$VALLEN(null)RIGHT$(null)ATN(null)RIGHT$(null)(null)SYS IS"
3090 [131] "MUCH LIKE OPEN(null)ATN(null)RIGHT$(null)(null)STR$VALSYS."
3100 [131] "OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS IS MEASURED IN OPENLEFT$(null)(null)(null)(null)SYS"
3110 [131] "AND OPEN(null)RIGHT$(null)(null)(null)VAL(null)SYS. (RIGHT$MAGINE A TRANSPARENT"
3120 [131] "GLOBE WITH A LIGHT BULB INSIDE. (null)HE"
3130 [131] "LINES OF OPEN(null)(null)(null)CHR$RIGHT$(null)(null)STR$VALSYS WOULD SHOW UP AS"
3140 [131] "SHADOWS ON A WALL...THUS THE 24 OPENLEFT$(null)(null)(null)(null)SYS"
3150 [131] "OF OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS."
3160 [131] "(null)O FIND THE COMET, LOOK FOR A STAR"
3170 [131] "WITH OPEN(null)RIGHT$CHR$LEFT$(null) ATN(null)LENVAL(null)(null)RIGHT$(null)(null)SYS AND OPENSTR$VALLEN(null)RIGHT$(null)ATN(null)RIGHT$(null)(null)SYS"
3180 [131] "CLOSE TO THAT OF THE COMET. (null)HEN"
3190 [131] "THE OPEN'(null)(null)VALSTR$RIGHT$LEN(null)VALSTR$ (null)ATNCHR$(null)RIGHT$(null)(null)STR$VAL'SYS GETS CLOSE"
3200 [131] "TO '8'....USE BINOCULARS AND GIVE"
3210 [131] "IT A TRY!!!"
4000 [131] "END"
5000 [151]53281,11:[151]53280,11:[141]6500
5500 [153]"LOADSYS";
5510 [135]A$:[139]A$[178]"END"[167][151]198,0:A$[178]"":[137]5530
5520 [141]6100:[137]5510
5530 [153]"(null)RESS ANY KEY TO CONTINUE...SYS";
5540 [161]A$:[139]A$[178]""[167]6000
5550 [137]20
6000 D5[178][181]([187](1)[172]4)
6010 [139]D5[178]0[167][153]"";
6020 [139]D5[178]1[167][153]"";
6030 [139]D5[178]2[167][153]"CLR";
6040 [139]D5[178]3[167][153]"STOP";
6050 [137]5530
6100 D6[178][195](A$)
6110 [129]I[178]1[164]D6:[153][202](A$,I,1);:[129]D7[178]0[164]33:[130]:[130]:[153]
6120 [142]
6500 [153]"LOADSYS "
6510 [153]" LEFT$CLOSEATNCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null)CLOSE'CLOSE(null)CLOSECLOSECLOSELENCLOSE(null)CLOSE(null)CLOSEVALCLOSE(null) "
6520 [153]" "
6530 [129]I[178]0[164]1999:[130]:[142]